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SBEGIN RMSOERASE,000,RMSRMS,<DELETE FILE OPERATION> 


MARBAABAARAAARASALSLALALALALAALALASEAASEASARAL SSSR AAA ARRAS RRA A RARER ARAL A RASS SES GS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


** ® 
‘?® ® 
'?® Ww 
** ® 
*® ® 
ye OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
i THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
se PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. ‘ 
** ® 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. * 
*® ® 
** ® 
** ® 
**® 5 
*® ® 
** ® 


DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH IS 


Y FOR THE USE OR ee OF ITS 
NOT SUPPLIED BY DIGITAL 
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MS. SRCIRMSOERASE .MAR; 1 
++ 


Facility: rms32 


Abstract: 
this routine is the highest level control 
routine to perform the $erase function. 


Environment: 
star processor running starlet exec. 


Author: L F Laverdure, creation date: 27-SEP-1977 
Modified By: 


V03-006 JEJ0041 J E Johnson 20-Jun-1984 
Don't map errors from network deletes (NTSERASE) as 
they have already been processed. 


V03-005 RAS0239 Ron Schaefer 20-Jan-1984 
Don't RMSMAPERR errors from RMSASSIGN or RMSSETDID 
as they have already been mapped if possible. 

Fixup to RASO224. 


V03-004 RASO224 Ron Schaefer 19-Dec-1983 
Clean up search List implementation (KBT0539) 
by basically backing it out. It is inappropriate 
to look all thru the List for a file to delete. 


SOoOoooooooooooooooooooooooooQoQoQooQoooQoooooooeoo 
SOCOCOSCSOOCSOOOCOOSOSO OOOO OSOOSOOOOSOO OOOO OOOCOOOOOOOoOO 
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v03-003 KBT0539 Keith B. Thompson 7-Jun-1983 
Add search List support 
v03-002 KkB10518 Keith B. Thompson 23-May-1983 
RMSXPFN moved so ref to it changed to JSB 
v03-001 KBT0180 Keith B. Thompson a ary a pe 
Reorganize psects and rename entry point to single ‘$' 
66 v02-007 MCNO001 Maria del C. Nasr 29-Jul-1981 
t Rename entry point to RMS$$ to support long branches. 
69 ;-- 
70 
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N 16-SEP-1984 01:17: AX/VMS Macro V04-00 P 4 
LENAME STRING ROUTIN S-SEP=19B4 forseces FANG eactamsbEkacergar:1 P29 cy 


~SBTTL RMSSERASE = ERASE FILENAME STRING ROUTINE 


wn 


+ 
+ 


RMSSERASE 


The filename, issues the acp qio function to delete the file, and 
then deletes the ifab. 


; Calling sequence: 
Entered from exec as a result of user's calling sys$erase 
; Input Parameters: 
ap user's argument List addr 
Implicit Inputs: 
The contents of the fab (fna, fns, dna, dns) and related nam block. 
; Output Parameters: 


ri destroyed 
r0 status code 


Implicit Outputs: 
The sts and stv fields of the fab are output along with the 
various fields of the nam block (dvi, fid, did, esl and the buffer at esa, 
rsl and the buffer at rsa) 
to reflect the status of the $erase operation. (see rms functional 
spec for a complete List. 
A completion ast is queued if specified in the user arglist. 
Completion Codes: 
Standard rms (see functional spec for List). 


Side Effects: 


SOoOoOOSCoOOOSOOSOSOSOOSSOSSOSOOSOSOSOSOOOSOSOSOSOSOSOSOOSOSOSOOOSOOOOSoO 


3 3 —) ~QOOODQOQOOOOOOOOCOSSOOSOSOSOOOSOSOSOSOSOSOSOSOSOSOSOSOOSOOOOOSOSOOOOOOSOOO 


MPIMIININI TM OOS OOOCOCOCOOCOOCOCS SSCS OCCOOCSCOCSOOOOCOCOOOCOOOOOOOOOOOOO me 


none 
SENTRY RMSSERASE 
STSTPT 
FFF7* 30 BSBW RMSFSETI 3; create an ifab 
3; does not return on error 
eeeees § 16 JSB RMSXPFN : expand file name 
50 50 ~=«€9 BLBC RO, CLEANUP : continue if ok 


: We parse a file name ok 


i a a dd dd dd dd dd 
MEI OS ODO NA MEW 0 OO NAU EWN 9 OO NAME WN 2 OOONAULS WIN OOONAUESWN-0O0 


SOODOODODDOOSOOOSOOSSDSOSOSOSOOSSOOOOOOOOOCOOO OOOO ODOOOCOOOOOOOOOOOOOSCOO »~Mm 
MUMMIES BEE EERE EE WWWWW WII PONONONOPONONU ND 3 QO OOOO OOOO~ 


SOooooooooooo 


OC AA 95 TSTB FWASB_ESCFLG(R10) : ppf indicated? 
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VO2~600 Pat SE RASt = ERASE FILENAME STRING ROUTIN ~$ee=138% ee eet RMS.SRCJRMSOERASE .MAR; 1 ° (4) vO! 
5 1 13 1 § BNEQ ERRIOP ; branch if y 
4A 6A 1 § 1 1 BBS #FWASV_WILDCARD, (R10) ,ERRWLD ; branch if YSta card seen 
FFE2" 1B 8 BSBW RMSASSIGN ; assign channnel to device 
41 E if 1 BLBC RO, CLEANUP : failure 
5F 69 = 3E E 160 BBS #IFBSV_DAP, (R9) ,NTERASE : branch {f network file oper 
69 ig E H 193 BBC 1° 1b I anal tama fie eaten 3; branch if not disk 
FFD4' 38 188 BSBW RMSSETDID ; lookup the directory name 
33 50 €9 OO02C 164 BLBC RO, CLEANUP ; failure 
a 
° : 187 ; The assign and set did succeded 
O2F 19? ; Note: R7 set to NAM blk addr 
OF 1 
O1FE CA D5 $0 F 176 60$ TSTL FIBSW_DID+FWAST_F IBBUF (R10) 3; did gb ghey 
1A = 12 00 3 17 BNEQ DEL : branc a (implies fid=0) 
O1F8 CA OD i 174 TSTL FIBSW_FID+FWAST_F IBBUF (R10) 3; fid speci 
421 039 175 BEQL ERRBUG : branch if none 
its 176 
See ae 
0038 178; since fid is set, there must be a nam blk. set did from the nam blk. 
0038 179; 
0038 180 
2A A? =©—BO «(0038 13) MOVW NAM$W_DID(R7) ,- 
QIFE CA 003E 1 § FIBSW_DID _NUM+F WAST _F IBBUF (R10) 
0c 13 0041 £18 BEQL DELETE 3; branch if none 
ec A7 dO 0043 184 MOVL NAM$W_DID_SEQ(R 
0200 CA 0046 185 FIBS$W~DID BN _F IBBUF (R10) 
0049 186 SSB #F1BS0_FINDFID,- : flag find by file id 
Boe? 187 F 1BSW_NMCTL+FWAST_F IBBUF (R10) 
04F 188 
Bpee 189 ; 
O4F 190 ; set up the qio parameters and issue the delete qio 
O04F 191; 
Boer 13 
7E 7¢ O4F 193 DELETE: CLRQ -(SP) 5 on) 
FFAC' 30 0051 194 BSBW RMSFCP_P4_P2 ; build p4 thru p2 
0054 195 
0054 196; 
Bnee 197 ; (resultant name, name string) 
054 198; 
Bpee 199 
50 0135 8F C 54 00 MOVZWL #10$_DELETE! IOSM_DELETE,RO ; function code 
FFAG" 30 0059 1 BSBW RMSFCPFNC 3; do the delete 
14 50 9 bee ¢ BLBC RO,ERROLT : branch on er 
FFE’ 30 O5F ; FILNAM: BSBW RMSFILLNAM > fill in nam bik, if any 
be 5 CLEANUP: 
FF9B’ 31 $ BRW RMSCLSCU 3; all done - evaporate ifab 
6 p++ 
re 3 3 
o2 10 ; process errors 
6 11; 
a5 512 3 
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yo. p00 RASS ASE = SE FILENAME STRING ROUTIN 87365 
ERRWLD: 
RMSERR WLD 
F611 BRB CLEANUP 
ERRIOP: 
RMSERR IOP 
EF 11 BRB CLEANUP 
ERRDLT: 
RMSERR MKD,R1 
FF85" a BSBW RMSMAPERR 
E5 1 BRB CLEANUP 
: Bad one! 


ERRBUG: RMSTBUG FTL$_NODIDORF ID 


process network erase functi 
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SOooooooooooooooooooooooooooooooooo 
MNOS PNL LLL SL SL SOO OSC O FO WOUMWN OOO Pw = me 
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PROPOPINPINININIPIPYIPINIPINIPIPIPUPIPUPIPIPIPINPIPINPIPIPIPIPIPYPIPIPIPY FTO 


© © 000000 09 0909 09 69 0909 09 08 SII NI NI SII NIN NI NINO OOOOOS Om 


NTERASE: 

FF79" 30 BSBW = NTSACCESS 
£9 30 £9 BLBC RO, ERRDLT 
FF73" 30 BSBW NTSERASE 
cF 50 «EB BLBS RO, FILNAM 
dO. «1 BRB CLEANUP 

END 


v04-00 


71986 96:26:58 URNS. SRCIANSOERASE.MAR; 1 a 


on 


no did or fid 


establish logical Link with fal 
branch on failure 

erase file at remote node 

fill in nam blk, if any 
otherwise report the error. 


RMSOERASE 
Symbol table 


$$.PSECT_EP 
SSRMSTEST 


et ee ee SH MMe 
Fe mt ee os oe 
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sd 
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PIOSA’T RACE 
RASASSIGN 


RM D 
TPTSC_ERASE 


PSECT name 


- ABS 
RMSRMS 
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teeeeeee 
Titi i its 
eeereree 
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teeeeeee 
teereene 
eeereeee 
eereenee 
eereeeee 
Petwees 
eeeeeeee 
FFFFFFF 

001857 
001C032 
00018744 


Reereeee 


Allocation 


00000 4 
0000092 


( 
( 


DELETE FILE OPERATION 


p>? + + > + > + + > See? 4 


MCSEEIOHL SUNLESS WAAUECHRSBEARSEMann "0 


ae a 


oooo oOo 


01 


SOoOoooooooooo°ooo 
23 SS 


PSECT No. Attributes 
69 ( 0.) NOPIC USR CON ABS 
12 am 


LCL NOSHR NOEXE NORD NOWRT NOVEC B 
PIC USR CON REL B 


YTE 
GBL NOSHR EXE RD NOWRT NOVEC BYTE 


A 
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SABSS$ 00000000 < 0.) 02 ¢ 2.) NOPIC USR (CO ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
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! Performance indicators ! 


tema wee tem meen ean mmm ey 


Phase Page faults CPU Time Elapsed Time 


Initialization 9 00:00:0 .07 0:00:00.44 
Command processing 107 0:00: 9? 0:00: 8-18 
Pass 377 00:13. 9 0:00:29.19 
pysbo} table sort 33 : 0:08:1 0:9 : 2-1? 
Symbol table output 6 0:00: 10 8: 8:08 3 
sect synopsis output :00:00. :00:00. 
P j 2 0 0.0 0:00:00.10 
Cross-reference output 0 0:00:00.00 00:00:00.00 
Assembler run totals 581 0:00:18.76 00:00:44.14 


The working set Limit was 1350 pages. 

74388 bytes (146 pages) of virtual memory were used to buffer the intermediate code. 

There were 80 pages of symbol table space “4 ogi to hold 1563 non-local and 2 Local symbols. 
6 source Lines were read in Pass 1, producing 13 object records in Pass 2. 

23 pages of virtual memory were used to define 22 macros. 


berm cee reve er ecw er ecer eae asze oot 


; Macro Library statistics : 


Macro library name Macros defined 


~$355$0UA28: RMS. -0B4 RMS MLB: 1 12 
“$255$DUA28:CSYS.OB B;1 0 
“$255$DUA28: Paver Cpistaecets MLB; 2 6 
TOTALS (all Libraries) 18 


1683 GETS were required to define 18 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:RMSOERASE/OBJ=OBJ$:RMSOERASE MSRC$:RMSOERASE/UPDATE=(ENHS: RMSOERASE) +EXECMLS$/LIB+LIB$:RMS/LIB 
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